5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
12 POKE53371,0:POKE53272,31
15 PRINT"[147]":POKE53280,0:POKE53281,0
27 AD=49152
28 SYSAD:SYSAD+12
29 SYSAD+9,0
62 SYSAD+9,1
65 P2=2*(null):REM RADIANS IN A FULL CIRCLE
70 PRINT"[147]"
75 BS$="[150][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
80 PRINT"[150][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
85 PRINTBS$""TAB(38)BS$
90 PRINT"[150][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
95 PRINT""TAB(6)"[150]-[159][204] [213] [206] [193] [210]   [204] [207] [195] [193] [212] [207] [210][150]-"
100 PRINT:PRINTTAB(5)"[158][197]NTER [217]EAR (E.G. 1998): ";:L9%=4:GOSUB375:Y=Q9
102 SYSAD+9,2
105 PRINTTAB(7)"[158][197]NTER [205]ONTH (1 - 12): ";:L9%=2:GOSUB375:M=Q9
110 IFM>12THENPRINT"[145][145]":GOTO105
112 SYSAD+9,2
115 PRINTTAB(9)"[158][197]NTER [196]AY (1 - 31): ";:L9%=2:GOSUB375:D=Q9
120 IFD>31THENPRINT"[145][145]":GOTO115
122 SYSAD+9,2
125 POKE214,6:PRINT:PRINTTAB(8)"[150][201]S THIS [195]ORRECT? (Y[150]/N[150])":POKE198,.
130 GOSUB535
135 IFA$="N"THEN62
137 SYSAD+9,3
140 YY=Y-INT((12-M)/10)
145 MM=M+9:IFMM>=12THEN MM=MM-12
150 K1=INT(365.25*(YY+4712))
155 K2=INT(30.6*MM+.5)
160 K3=INT(INT((YY/100)+49)*.75)-38
165 J=K1+K2+D+59
170 IFJ>2299160THENJ=J-K3
175 REM J IS JULIAN DATE AT 12H UT ON DAY IN QUESTION
185 REM CALCULATE ILLUMINATION (SYNODIC) PHASE
190 V=(J-2451550.1)/29.530588853:GOSUB360:IP=V
195 AG=IP*29.53
200 IP=IP*P2
210 REM CALCULATE DISTANCE FROM ANOMALISTIC PHASE
215 V=(J-2451562.2)/27.55454988:GOSUB360:DP=V
220 DP=DP*P2
225 DI=60.4-3.3*COS(DP)-.6*COS(2*IP-DP)-.5*COS(2*IP)
235 REM CALCULATE LATITUDE FROM NODAL (DRACONIC) PHASE
240 V=(J-2451565.2)/27.212220817:GOSUB360:NP=V
245 NP=NP*P2
250 LA=5.1*SIN(NP)
260 REM CALCULATE LONGITUDE FROM SIDEREAL MOTION
265 V=(J-2451555.8)/27.321582241:GOSUB360:RP=V
270 L0=360*RP+6.3*SIN(DP)+1.3*SIN(2*IP-DP)+.7*SIN(2*IP)
275 POKE214,6:PRINT:PRINTTAB(1)"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
280 POKE214,7:PRINT:PRINTTAB(5)"[150]-[159][205][207][207][206]'[211] [193][199][197] [193][206][196] [208][207][211][201][212][201][207][206][150]-"
285 PRINT:PRINTTAB(2)"[153][193]GE FROM [206]EW [154](DAYS):[158]";AG:GOSUB470
290 PRINT:PRINTTAB(2)"[153][196]ISTANCE [154]([197]ARTH RADII):[158]";DI
295 PRINTTAB(2)"[153][196]ISTANCE [154](IN KMS):[158]";(DI*6378)-900
300 PRINT:PRINTTAB(2)"[153][197]CLIPTIC LATITUDE:[158]";LA;"[219]"
305 PRINTTAB(2)"[153][197]CLIPTIC LONGITUDE:[158]";L0;"[219]"
310 IFLA>-1ANDLA<1ANDAG>14ANDAG<15THENGOSUB515
315 IFLA>-1ANDLA<1ANDAG>=29ANDAG<1THENGOSUB525
320 GOSUB3000
330 GOTO62
360 REM NORMALIZE VALUES TO RANGE 0 TO 1
365 V=V-INT(V):IFV<0THEN V=V+1
370 RETURN
375 Q9$="":POKE198,.
380 GETA$
385 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN380
390 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
395 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO417
400 IFLEN(Q9$)>=L9%THENSYSAD+9,2:GOTO380
405 IF(A$>="0"ANDA$<="9")THEN410
407 GOTO380
410 Q9$=Q9$+A$
415 PRINT""A$;:GOTO380
417 PRINT" [157][157] [157]";:GOTO380
470 IFAG>6.4ANDAG<=8.2THENPRINTTAB(6)"[159]1ST [209]UARTER [205]OON.  [173]"
475 IFAG>8.2ANDAG<13.5THENPRINTTAB(6)"[159][205]OON IS [215]AXING.  [183]"
480 IFAG>13.5ANDAG<=15.5THENPRINTTAB(6)"[159][198]ULL [205]OON TONIGHT!  [181][182]"
485 IFAG>=15.51ANDAG<20.6THENPRINTTAB(6)"[159][205]OON IS [215]ANING.  [183]"
490 IFAG>=20.7ANDAG<23.2THENPRINTTAB(6)"[159]3RD [209]UARTER [205]OON.  [172]"
495 IFAG>23.2ANDAG<28.4THENPRINTTAB(6)"[159][205]OON IS [215]ANING.  ("
500 IFAG>=28.4ORAG<.55THENPRINTTAB(6)"[159][206]EW [205]OON TONIGHT!  [144][170][171]"
505 IFAG>.56ANDAG<6.4THENPRINTTAB(6)"[159][205]OON IS [215]AXING.  )"
510 RETURN
515 POKE214,18:PRINT:PRINTTAB(3)"[204][213][206][193][210] [197][195][204][201][208][211][197] SOMEWHERE ON [197]ARTH."
520 RETURN
525 POKE214,18:PRINT:PRINTTAB(3)"[211][207][204][193][210] [197][195][204][201][208][211][197] SOMEWHERE ON [197]ARTH."
530 RETURN
535 POKE198,0
536 GETA$
537 IFA$<>"Y"ANDA$<>"N"THEN536
540 RETURN
3000 POKE214,19:PRINT:PRINTTAB(8)"[150](1[150]) [195]ALCULATE ANOTHER
3010 [153][163]8)"DEF(2DEF) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147]LOAD"CHR$(34)"B.UNIVERSE"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="LUNAR LOCATOR":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END